home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Networking / Timbuktu⁄Remote / Timbuktu⁄Remote™ Tour / Timbuktu_Remote™ Tour / card_11010.txt < prev    next >
Text File  |  1989-07-19  |  7KB  |  317 lines
  1. -- card: 11010 from stack: in
  2. -- bmap block id: 2136
  3. -- flags: 0000
  4. -- background id: 40985
  5. -- name: Title
  6. ----- HyperTalk script -----
  7. -- Copyright ¬© 1988  Farallon Computing, Inc.  All rights reserved.
  8.  
  9. on openStack
  10.   hide menubar
  11.   hide msg
  12. end openStack
  13.  
  14. on mouseUp
  15.   visual effect dissolve
  16.   go next
  17. end mouseUp
  18.  
  19. on closeCard
  20.   --hide the logo dots
  21.   lock screen
  22.   repeat with buttonNo is 1 to 15
  23.     hide card button buttonNo
  24.   end repeat
  25.   unlock screen with dissolve
  26. end closeCard
  27.  
  28. on openCard
  29.   global startTime
  30.   put the seconds into startTime     --save starting time
  31.   if the optionKey is not down then  --option key disables intro music
  32.     --play music and animate logo dots
  33.     set cursor to none
  34.     play musak
  35.     repeat with buttonNo is 1 to 15
  36.       lock screen
  37.       show card button buttonNo
  38.       unlock screen with dissolve
  39.       if the mouseClick then
  40.         play stop
  41.         ShowLogo
  42.         exit repeat
  43.       end if
  44.     end repeat
  45.     set cursor to hand
  46.   else
  47.     ShowLogo
  48.   end if --optionKey is not down
  49.   hide card button "Cover1"
  50. end openCard
  51.  
  52. on ShowLogo
  53.   --show logo dots without music and animation
  54.   lock screen
  55.   repeat with buttonNo is 1 to 15
  56.     show card button buttonNo
  57.   end repeat
  58.   unlock screen with dissolve
  59. end ShowLogo
  60.  
  61. on idle
  62.   global startTime
  63.   get the seconds
  64.   if ((it-(startTime)) > 120) then                  --wait 2 minutes
  65.     put "Starting self-running demo..." into msg    --then start
  66.     click at loc of card button "Self-running"      --self-running demo
  67.     wait 30 ticks
  68.     send mouseUp to me
  69.   end if
  70. end idle
  71.  
  72.  
  73. -- part 2 (button)
  74. -- low flags: 80
  75. -- high flags: 0000
  76. -- rect: left=0 top=215 right=233 bottom=12
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 3759 / 3759
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Logo1
  85.  
  86.  
  87. -- part 3 (button)
  88. -- low flags: 80
  89. -- high flags: 0000
  90. -- rect: left=16 top=192 right=212 bottom=36
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 23528 / 23528
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Logo2
  99.  
  100.  
  101. -- part 4 (button)
  102. -- low flags: 80
  103. -- high flags: 0000
  104. -- rect: left=47 top=172 right=192 bottom=67
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 23528 / 23528
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Logo3
  113.  
  114.  
  115. -- part 5 (button)
  116. -- low flags: 80
  117. -- high flags: 0000
  118. -- rect: left=85 top=171 right=191 bottom=105
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 22440 / 22440
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Logo4
  127.  
  128.  
  129. -- part 6 (button)
  130. -- low flags: 80
  131. -- high flags: 0000
  132. -- rect: left=115 top=193 right=213 bottom=135
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 22440 / 22440
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Logo5
  141.  
  142.  
  143. -- part 7 (button)
  144. -- low flags: 80
  145. -- high flags: 0000
  146. -- rect: left=127 top=234 right=254 bottom=147
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 22440 / 22440
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Logo6
  155.  
  156.  
  157. -- part 8 (button)
  158. -- low flags: 80
  159. -- high flags: 0000
  160. -- rect: left=99 top=259 right=279 bottom=119
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 22440 / 22440
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Logo7
  169.  
  170.  
  171. -- part 9 (button)
  172. -- low flags: 80
  173. -- high flags: 0000
  174. -- rect: left=66 top=261 right=281 bottom=86
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 30016 / 30016
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Logo8
  183.  
  184.  
  185. -- part 10 (button)
  186. -- low flags: 80
  187. -- high flags: 0000
  188. -- rect: left=483 top=82 right=102 bottom=503
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 23528 / 23528
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Logo9
  197.  
  198.  
  199. -- part 11 (button)
  200. -- low flags: 80
  201. -- high flags: 0000
  202. -- rect: left=440 top=103 right=123 bottom=460
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 23528 / 23528
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: Logo10
  211.  
  212.  
  213. -- part 12 (button)
  214. -- low flags: 80
  215. -- high flags: 0000
  216. -- rect: left=405 top=140 right=160 bottom=425
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 3759 / 3759
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Logo11
  225.  
  226.  
  227. -- part 13 (button)
  228. -- low flags: 80
  229. -- high flags: 0000
  230. -- rect: left=394 top=180 right=200 bottom=414
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 3759 / 3759
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Logo12
  239.  
  240.  
  241. -- part 14 (button)
  242. -- low flags: 80
  243. -- high flags: 0000
  244. -- rect: left=418 top=222 right=239 bottom=434
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 26962 / 26962
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Logo13
  253.  
  254.  
  255. -- part 15 (button)
  256. -- low flags: 80
  257. -- high flags: 0000
  258. -- rect: left=454 top=258 right=275 bottom=470
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 26962 / 26962
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Logo14
  267.  
  268.  
  269. -- part 16 (button)
  270. -- low flags: 80
  271. -- high flags: 0000
  272. -- rect: left=480 top=274 right=291 bottom=496
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 31166 / 31166
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: Logo15
  281.  
  282.  
  283. -- part 1 (button)
  284. -- low flags: 00
  285. -- high flags: 2005
  286. -- rect: left=205 top=262 right=305 bottom=348
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 2048
  293. -- line height: 16
  294. -- part name: Self-Running
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   global selfRunning
  298.   send mouseUp to HyperCard
  299.   if the hilite of me is true then
  300.     put true into selfRunning
  301.   else put false into selfRunning
  302. end mouseUp
  303.  
  304.  
  305. -- part 18 (button)
  306. -- low flags: 00
  307. -- high flags: 4001
  308. -- rect: left=205 top=262 right=311 bottom=348
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 0 / 0
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: Cover1
  317.